/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / bltzdemo.lha / examples1 / windows.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 3b 54 68 69 73 20 6c | 69 74 74 6c 65 20 65 78 |.;This l|ittle ex|
|00000010| 61 6d 70 6c 65 20 73 68 | 6f 77 73 20 68 6f 77 20 |ample sh|ows how |
|00000020| 74 6f 20 6f 70 65 6e 20 | 77 69 6e 64 6f 77 73 00 |to open |windows.|
|00000030| 00 3b 66 69 72 73 74 2c | 20 77 65 20 6e 65 65 64 |.;first,| we need|
|00000040| 20 61 20 73 63 72 65 65 | 6e 20 66 6f 72 20 74 68 | a scree|n for th|
|00000050| 65 20 77 69 6e 64 6f 77 | 73 20 74 6f 20 6f 70 65 |e window|s to ope|
|00000060| 6e 20 6f 6e 2e 2e 2e 00 | 3b 00 cf 08 20 31 2c 31 |n on....|;... 1,1|
|00000070| 2c 32 2c 31 2c 33 2c 30 | 00 cf 01 20 30 2c 31 31 |,2,1,3,0|... 0,11|
|00000080| 2c 22 4d 79 20 53 63 72 | 65 65 6e 22 00 00 3b 61 |,"My Scr|een"..;a|
|00000090| 6c 74 65 72 6e 61 74 69 | 76 65 6c 79 2c 20 77 65 |lternati|vely, we|
|000000a0| 20 63 6f 75 6c 64 20 68 | 61 76 65 20 75 73 65 64 | could h|ave used|
|000000b0| 20 74 68 65 20 77 6f 72 | 6b 62 65 6e 63 68 20 73 | the wor|kbench s|
|000000c0| 63 72 65 65 6e 2c 20 6c | 69 6b 65 20 73 6f 3a 00 |creen, l|ike so:.|
|000000d0| 3b 57 62 54 6f 53 63 72 | 65 65 6e 20 30 3a 57 42 |;WbToScr|een 0:WB|
|000000e0| 65 6e 63 68 54 6f 46 72 | 6f 6e 74 00 00 3b 77 69 |enchToFr|ont..;wi|
|000000f0| 6e 64 6f 77 20 30 2e 2e | 2e 00 3b 00 c5 01 20 30 |ndow 0..|..;... 0|
|00000100| 2c 30 2c 31 32 2c 33 32 | 30 2c 31 30 30 2c 24 30 |,0,12,32|0,100,$0|
|00000110| 2c 22 57 69 6e 64 6f 77 | 20 30 22 2c 31 2c 32 00 |,"Window| 0",1,2.|
|00000120| dd 81 20 22 57 69 6e 64 | 6f 77 20 46 6c 61 67 73 |.. "Wind|ow Flags|
|00000130| 3d 24 30 22 00 00 3b 77 | 69 6e 64 6f 77 20 31 2e |=$0"..;w|indow 1.|
|00000140| 2e 2e 00 3b 00 c5 01 20 | 31 2c 33 32 30 2c 31 32 |...;... |1,320,12|
|00000150| 2c 33 32 30 2c 31 30 30 | 2c 24 32 2c 22 57 69 6e |,320,100|,$2,"Win|
|00000160| 64 6f 77 20 31 22 2c 31 | 2c 32 00 dd 82 20 22 57 |dow 1",1|,2... "W|
|00000170| 69 6e 64 6f 77 20 46 6c | 61 67 73 3d 24 32 22 00 |indow Fl|ags=$2".|
|00000180| dd 81 20 22 57 69 6e 64 | 6f 77 20 68 61 73 20 64 |.. "Wind|ow has d|
|00000190| 72 61 67 20 62 61 72 22 | 00 00 3b 77 69 6e 64 6f |rag bar"|..;windo|
|000001a0| 77 20 32 2e 2e 2e 00 3b | 00 c5 01 20 32 2c 30 2c |w 2....;|... 2,0,|
|000001b0| 31 31 32 2c 33 32 30 2c | 38 38 2c 24 36 2c 22 57 |112,320,|88,$6,"W|
|000001c0| 69 6e 64 6f 77 20 32 22 | 2c 31 2c 32 00 dd 82 20 |indow 2"|,1,2... |
|000001d0| 22 57 69 6e 64 6f 77 20 | 46 6c 61 67 73 3d 24 33 |"Window |Flags=$3|
|000001e0| 22 00 dd 82 20 22 57 69 | 6e 64 6f 77 20 68 61 73 |"... "Wi|ndow has|
|000001f0| 20 64 72 61 67 20 62 61 | 72 22 00 dd 81 20 22 57 | drag ba|r"... "W|
|00000200| 69 6e 64 6f 77 20 68 61 | 73 20 64 65 70 74 68 20 |indow ha|s depth |
|00000210| 67 61 64 67 65 74 22 00 | 00 3b 77 69 6e 64 6f 77 |gadget".|.;window|
|00000220| 20 33 2e 2e 2e 00 3b 00 | c5 01 20 33 2c 33 32 30 | 3....;.|.. 3,320|
|00000230| 2c 31 31 32 2c 33 32 30 | 2c 38 38 2c 24 31 30 30 |,112,320|,88,$100|
|00000240| 66 2c 22 57 69 6e 64 6f | 77 20 33 22 2c 31 2c 32 |f,"Windo|w 3",1,2|
|00000250| 00 dd 82 20 22 57 69 6e | 64 6f 77 20 46 6c 61 67 |... "Win|dow Flag|
|00000260| 73 3d 24 66 22 00 dd 82 | 20 22 57 69 6e 64 6f 77 |s=$f"...| "Window|
|00000270| 20 68 61 73 20 74 68 65 | 20 77 6f 72 6b 73 21 22 | has the| works!"|
|00000280| 00 dd 82 20 22 43 6c 6f | 73 65 20 6d 65 20 74 6f |... "Clo|se me to|
|00000290| 20 65 78 69 74 21 22 00 | 00 3b 77 61 69 74 20 66 | exit!".|.;wait f|
|000002a0| 6f 72 20 61 20 27 63 6c | 6f 73 65 20 77 69 6e 64 |or a 'cl|ose wind|
|000002b0| 6f 77 27 20 65 76 65 6e | 74 2e 2e 2e 00 3b 00 80 |ow' even|t....;..|
|000002c0| bb 00 80 bc 20 c5 02 3d | 35 31 32 00             |.... ..=|512.    |
+--------+-------------------------+-------------------------+--------+--------+